home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 06 - 1990 / 06.05 May 90 / SlotVBLTask Code / vbltask.a < prev   
Encoding:
Text File  |  1990-03-11  |  548 b   |  37 lines  |  [TEXT/MPS ]
  1.     INCLUDE    'SysEqu.a'
  2.  
  3.     EXPORT    MyVBLTask
  4.  
  5. MyVBLTask    PROC
  6. ;
  7. ; On entry A0 is a ptr to our XVBLRec which was defined
  8. ; as follows:
  9. ;
  10. ;    XVBLRec    =    RECORD
  11. ;        xVBLTask    :    VBLTask;
  12. ;        xDoTask    :    INTEGER;
  13. ;    END;
  14. ;
  15. ; We can use MPW RECORDs to define it in assembly as follows:
  16. ;
  17. XVBLRec        RECORD    0
  18. xVBLTask    DS.B    vblPhase+2
  19. xDoTask        DS.W    1
  20.             ENDR
  21.  
  22. kVBLCount    EQU        1
  23.  
  24.     WITH    XVBLRec
  25.  
  26.     ; Reset the vblCount
  27.     MOVE.W    #kVBLCount,XVBLRec+xVBLTask+vblCount(A0)
  28.  
  29.     ; Make xDoTask non-zero
  30.     MOVE.W    #1,XVBLRec+xDoTask(A0)
  31.  
  32.     ; Exit Task
  33.     RTS
  34.  
  35. ENDWITH
  36. ENDP
  37.     END    ; For Assembler